Shareware Grab Bag

home *** CD-ROM | disk | FTP | other *** search

/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / w4form1.arc / W-4.BAS next >

Wrap

BASIC Source File | 1987-01-31 | 35.9 KB | 818 lines

1 CLS 2 KEY OFF 3 CLS 4 PRINT " W-4 Worksheet to Figure Your Withholding Allowances" 5 PRINT VERSION 010287 6 PRINT 7 PRINT " (C) 1987 Roger A. Stanley 8 PRINT 9 PRINT " This program is supported by the SHAREWARE concept. " 10 PRINT "Help bring down the high cost of software. A small" 11 PRINT "contribution of $5.00 is requested if you find this " 12 PRINT "program of value. This User Supported Concept encourages " 13 PRINT "the development of quality, low cost, and varied PC " 14 PRINT "software. Send your contribution to: " 15 PRINT " Roger A. Stanley" 16 PRINT " 1748 N Street, N.W." 17 PRINT " Washington, D.C. 20036" 18 PRINT 19 PRINT "This program may be copies and freely distributed as long" 20 PRINT "as no modification is made without concent of the author" 21 PRINT 22 INPUT "Press Any Key to Continue...........";V$ 23 CLS 1000 'W-4 worksheet 1100 LOCATE 1,10: PRINT "W-4 Worksheet - Please Answer the following:" 1120 LOCATE 3,5: PRINT "1) Filing Status 1=Single;2=Married Filing Jointly;" 1130 LOCATE 4,5: PRINT " 3=Head of Household........................." 1140 LOCATE 5,5: PRINT "2) Can you be claimed as a dependent on another" 1150 LOCATE 6,5: PRINT " persons tax return? (Y/N).............................." 1170 LOCATE 4,65: INPUT A 1180 LOCATE 6,65: INPUT A$ 1181 IF A$="y" THEN LET A$="Y" 1182 IF A$="n" THEN LET A$="N" 1190 IF A=2 THEN LOCATE 7,5:PRINT "3) Can your spouse be claimed as a dependent on another" 1200 IF A=2 THEN LOCATE 8,5:INPUT " persons tax return?(Y/N).................................";A1$ 1229 IF A=2 THEN LOCATE 9,5:INPUT "4) Does your spouse work?(Y/N)..............................";A2$ 1230 LOCATE 10,5:INPUT "5) Do you have a 2nd Job?(Y/N)..............................";B$ 1245 IF B$="y" THEN LET B$="Y" 1250 IF B$="Y" THEN LOCATE 11,5:INPUT "6) Estimated Income from 2nd Job........$";B 1253 LOCATE 12,5: INPUT "7) Are your Over 65 years old? (Y/N)........................";O$ 1254 LOCATE 13,5:INPUT "8) Are you legally Blind?(Y/N)..............................";O1$ 1255 IF A=2 THEN LOCATE 14,5:INPUT "9) Is your spouse over 65 years old?(Y/N)...................";O2$ 1256 IF A=2 THEN LOCATE 15,4:INPUT "10) Is your spouse legally Blind?(Y/N).......................";O3$ 1260 IF A1$="y" THEN LET A1$="Y" 1261 IF A1$="n" THEN LET A1$="N" 1262 IF A2$="n" THEN LET A2$="N" 1263 IF A2$="y" THEN LET A2$="Y" 1300 LOCATE 16,4: INPUT "11) # of dependents (other than spouse) you expect to claim. ";C 1350 LOCATE 19,10: INPUT "Do you need to make corrections above?(Y/N)....";D$ 1660 IF D$="n" THEN LET D$="N" 1670 IF D$="y" THEN LET D$="Y" 1671 LET D = 0 1680 IF D$="Y" THEN LOCATE 20,10:INPUT "Which line number?......";D 1700 IF D = 1 THEN LOCATE 4,65:INPUT A 1710 IF D = 2 THEN LOCATE 6,65:INPUT A$ 1720 IF D = 3 THEN LOCATE 8,65:INPUT A1$ 1730 IF D = 4 THEN LOCATE 9,65:INPUT A2$ 1740 IF D = 5 THEN LOCATE 10,65:INPUT B$ 1750 IF D = 6 THEN LOCATE 11,47:INPUT B 1760 IF D = 11 THEN LOCATE 16,65:INPUT C 1761 IF D = 7 THEN LOCATE 12,65:INPUT O$ 1762 IF D = 8 THEN LOCATE 13,65:INPUT O1$ 1763 IF D = 9 THEN LOCATE 14,65:INPUT O2$ 1764 IF D = 10 THEN LOCATE 15,65:INPUT O3$ 1770 IF D > 11 THEN GOTO 1350 1775 LET D = 0 1780 IF D$="Y" GOTO 1350 1781 GOSUB 5000 1782 CLS 1783 LOCATE 1,10:PRINT "Estimated Tax Credits" 1785 LOCATE 10,10:PRINT "Enter your estimated tax credits such as" 1786 LOCATE 11,10:INPUT " Child and Dependent Care or Earned Income Credit";CR 1800 CLS 1810 LOCATE 1,10:PRINT "Adjustments to Income:" 1820 LOCATE 2,5:PRINT "1) Qualified reimbursed employee business expense:" 1830 LOCATE 3,5:PRINT "2) Qualified Alimony Payments made...............:" 1840 LOCATE 4,5:PRINT "3) Deductible business and investment losses.....:" 1850 LOCATE 5,5:PRINT "4) Penalty on early withdrawal of savings........:" 1860 LOCATE 6,5:PRINT "5) Contributions to IRA or Keogh Plan............:" 1870 LOCATE 7,5:PRINT "6) Are you or your spouse covered by a Pension Plan?(Y/N)" 1900 LOCATE 9,10:PRINT "Itemized Deductions" 1910 LOCATE 10,5:PRINT "7) Medical Expenses.............................:" 1920 LOCATE 11,5:PRINT "8) State & Local Taxes (exclude sales tax)......:" 1930 LOCATE 12,5:PRINT "9) Home Mtg. interest+65% of personal interest..:" 1940 LOCATE 13,4:PRINT "10) Qualified Investment Interest................:" 1950 LOCATE 14,4:PRINT "11) Charitable contributions.....................:" 1960 LOCATE 15,4:PRINT "12) Casualty & Theft losses......................:" 1970 LOCATE 16,4:PRINT "13) Moving Expenses(if employer withheld taxes)..:" 1980 LOCATE 17,4:PRINT "14) Miscellaneous Deductions.....................:" 2000 LOCATE 2,56:INPUT E1 2010 LOCATE 3,56:INPUT E2 2030 LOCATE 4,56:INPUT E3 2040 LOCATE 5,56:INPUT E4 2050 LOCATE 6,56:INPUT E5 2060 LOCATE 7,61:INPUT E$ 2070 LOCATE 10,56:INPUT F1 2080 LOCATE 11,56:INPUT F2 2090 LOCATE 12,56:INPUT F3 2100 LOCATE 13,56:INPUT F4 2110 LOCATE 14,56:INPUT F5 2111 LOCATE 15,56:INPUT F6 2112 LOCATE 16,56:INPUT F7 2113 LOCATE 17,56:INPUT F8 2114 LOCATE 19,10:INPUT "Do you need to make corrections?(Y/N).:";F$ 2115 IF F$="y" THEN LET F$="Y" 2117 LET Z = 0 2118 IF F$="Y" THEN LOCATE 20,10:INPUT "Which line number?..";Z 2119 IF Z = 1 THEN LOCATE 2,56:INPUT E1 2120 IF Z = 2 THEN LOCATE 3,56:INPUT E2 2130 IF Z = 3 THEN LOCATE 4,56:INPUT E3 2140 IF Z = 4 THEN LOCATE 5,56:INPUT E4 2150 IF Z = 5 THEN LOCATE 6,56:INPUT E5 2160 IF Z = 6 THEN LOCATE 7,61:INPUT E$ 2170 IF Z = 7 THEN LOCATE 10,56:INPUT F1 2180 IF Z = 8 THEN LOCATE 11,56:INPUT F2 2190 IF Z = 9 THEN LOCATE 12,56:INPUT F3 2200 IF Z = 10 THEN LOCATE 13,56:INPUT F4 2210 IF Z = 11 THEN LOCATE 14,56:INPUT F5 2220 IF Z = 12 THEN LOCATE 15,56:INPUT F6 2230 IF Z = 13 THEN LOCATE 16,56:INPUT F7 2240 IF Z = 14 THEN LOCATE 17,56:INPUT F8 2243 IF Z > 14 THEN GOTO 2114 2250 LET Z = 0 2255 IF F$="Y" THEN LOCATE 20,10:PRINT " " 2256 IF F$="Y" THEN LOCATE 19,50:PRINT " " 2260 IF F$="Y" THEN GOTO 2114 2270 CLS 2271 GOSUB 6000 2272 LET WS=WR+I4 2273 LET WT=WS/1900 2274 IF WT<=0 THEN LET WT=0 2275 LET WU=WP-WT 2279 'print up summary 2280 GOSUB 18000 2290 CLS 2295 LOCATE 10,10:INPUT "Would You Like A Printed Copy? (Y/N)..";YY$ 2300 IF YY$="y" THEN LET YY$="Y" 2310 IF YY$="Y" THEN INPUT "Be Sure printer is on and hit any key to print.";YYY$ 2320 IF YY$="Y" THEN GOSUB 28000 2330 SYSTEM 5000 'Income 5010 CLS 5020 LOCATE 1,10:PRINT " Income Information" 5030 LOCATE 2,5:PRINT "1) Enter your estimated main employment wages...........:" 5040 IF B$="Y" THEN LOCATE 3,5:PRINT "2) Your Second Employment Wages.........................:";B 5050 IF A=2 THEN LOCATE 4,5:PRINT "3) Enter Spouses Wages..................................:" 5060 LOCATE 6,5:PRINT "4) Enter the estimated amount, if any, of nonwage income:" 5100 LOCATE 2,63:INPUT I1 5120 IF A=2 THEN LOCATE 4,63:INPUT I3 5130 LOCATE 6,63:INPUT I4 5200 LOCATE 10,10:INPUT "Do you need to make corrections?(Y/N)...:";Z1$ 5210 IF Z1$="y" THEN LET Z1$="Y" 5220 IF Z1$="Y" THEN LOCATE 11,10:INPUT "Which line number?....:";Z1 5230 IF Z1 = 1 THEN LOCATE 2,63:INPUT I1 5240 IF Z1 = 2 THEN LOCATE 3,63:INPUT B 5250 IF Z1 = 3 THEN LOCATE 4,63:INPUT I3 5260 IF Z1 = 4 THEN LOCATE 6,63:INPUT I4 5270 IF Z1 >4 THEN GOTO 5200 5280 LET Z1 = 0 5290 IF Z1$="Y" THEN LOCATE 10,52:PRINT " " 5300 IF Z1$="Y" THEN LOCATE 11,34:PRINT " " 5310 IF Z1$="Y" THEN GOTO 5200 5320 RETURN 6000 'computation 6010 'Gross Income Computation 6020 LET T=I1+B+I3+I4 6030 'Adjustments 6040 LET T1=E1+E2+E3+E4+E5 6045 LET WF=T1 6050 'AGI 6060 LET T2=T-T1 6070 'max med,casualty&misc. 6080 LET M1=T2*.075 6090 LET M2=T2*.1 7000 LET M3=T2*.02 7110 LET ID1=F1-M1 7120 IF ID1<=0 THEN LET ID1=0 7130 LET ID2=F6-M2 7140 IF ID2<=0 THEN LET ID2=0 7150 LET ID3=F8-M3 7160 IF ID3<=0 THEN LET ID3=0 7170 'Itemized Deductions 7180 T3=ID1+ID2+ID3+F2+F3+F4+F5+F7 7185 LET WG=T3 7190 'Allowances from Worksheet 7199 'Single 7200 IF A$="N" THEN LET WA=1 7210 IF A<>2 AND B$="N" THEN LET WB=1 7220 IF A<>2 AND B$="Y" THEN LET BB$="Y" 7230 IF BB$="Y" AND B < 2500 THEN LET WB=1 7240 IF C>0 THEN LET WD=C 7250 IF C<=0 THEN LET WD=0 7260 'married joint 7270 IF A2$="N" AND A1$="N" THEN LET WC=1 7280 IF A2$="Y" AND A1$="N" THEN LET WC=1 7290 'Special Allowance 7300 IF A2$="N" AND B$="N" THEN LET WB=1 7310 IF A2$="N" AND B<= 2500 THEN LET WB=1 7320 LET WE=WA+WB+WC+WD 7330 'compute 7337 IF A=1 THEN LET WH=2540 7338 IF A=2 THEN LET WH=3760 7339 IF A=3 THEN LET WH=2540 7340 IF A=1 THEN LET WI=T3-2540 7341 IF WI<=0 THEN WI=0 7350 IF A=2 THEN LET WI=T3-3760 7351 IF WI<=0 THEN WI=0 7360 IF A=3 THEN LET WI=T3-2540 7361 IF WI<=0 THEN WI=0 7370 IF WI<=0 THEN LET WI=0 7375 LET AA=0:LET AB=0:LET AC=0:LET AD=0 7380 IF O$="Y" THEN LET AA=1 7390 IF O1$="Y" THEN LET AB=1 7400 IF O2$="Y" THEN LET AC=1 7410 IF O3$="Y" THEN LET AD=1 7420 LET AD=AA+AB 7430 LET AE=AC+AD 7435 LET AF=AD+AE 7440 IF A=1 AND AD=0 THEN LET WJ=0 7450 IF A=1 AND AD=1 THEN LET WJ=1210 7460 IF A=1 AND AD=2 THEN LET WJ=1960 7470 IF A=3 AND AD=0 THEN LET WJ=0 7480 IF A=3 AND AD=1 THEN LET WJ=2610 7490 IF A=3 AND AD=2 THEN LET WJ=3360 7500 IF A=2 AND AF=3 THEN LET WJ=3040 7510 IF A=2 AND AD=1 THEN LET AG=1 7520 LET AI=AG+AH 7530 IF A=2 AND AI=0 THEN LET WJ=0 7540 IF A=2 AND AI=1 THEN LET WJ=1840 7550 IF A=2 AND AI=2 THEN LET WJ=2440 7560 'tax credit 7570 LET WAG=I1+B+I3 7580 IF A=1 THEN GOSUB 9000 7585 IF A=2 THEN GOSUB 9100 7590 IF A=3 THEN GOSUB 9200 7600 LET WM=CR*WL 7610 LET WN=WF+WI+WJ+WM 7620 LET WO=WN/1900 7630 LET WE=WA+WB+WC+WD 7640 IF WO<=0 THEN LET WO=0 7650 LET WP=WE+WO 7660 LET WQ=I4 7670 IF A<>2 AND B$="Y" THEN GOSUB 10000 7680 IF A=2 AND A2$="Y" THEN LET ZZ=1 7682 IF A=2 AND A2$="N" THEN LET ZZ=0 7683 IF A=2 AND B$="Y" THEN LET ZX=1 7684 IF A=2 AND B$="N" THEN LET ZX=0 7685 LET ZY=ZZ+ZX 7686 IF ZY>0 THEN GOSUB 12000 7690 'REM Continue Caluclation after table here 7700 LET WK=CR 7710 LET WQ=I4 7720 LET WS=WQ+WR 7730 LET WT=WS/1900 7735 LET WP=WE+WO 7740 LET WU=WP-WT 9000 'Single Table 1 9010 IF WAG>0 AND WAG <6200 THEN LET WL=9 9020 IF WAG>6200 AND WAG <21000 THEN LET WL=6.5 9030 IF WAG>21000 AND WAG <31500 THEN LET WL=3.5 9040 IF WAG>31500 AND WAG <70000! THEN LET WL=3 9050 IF WAG>70000! THEN LET WL=2.5 9060 RETURN 9100 'Married filing Joint TAble 1 9110 IF WAG>0 AND WAG <12500 THEN LET WL=9 9120 IF WAG>12500 AND WAG <37500! THEN LET WL=6.5 9130 IF WAG>37500! AND WAG <55000! THEN LET WL=3.5 9140 IF WAG>55000! AND WAG <110000! THEN LET WL=3 9150 IF WAG>110000! THEN LET WL=2.5 9160 RETURN 9200 'Head of Household Table 1 9210 IF WAG>0 AND WAG <8800 THEN LET WL=9 9220 IF WAG>8800 AND WAG <29000 THEN LET WL=7 9230 IF WAG>29000 AND WAG <44000! THEN LET WL=4 9240 IF WAG>44000! AND WAG <100000! THEN LET WL=3 9250 IF WAG>100000! THEN LET WL=2.5 9260 RETURN 9999 'Continue 10000 'Table B worksheet 10010 IF I1 > B THEN LET BB1=I1 10020 IF B > I1 THEN LET BB1=B 10030 IF I1 > B THEN LET BB6=B 10040 IF B > I1 THEN LET BB6=I1 10050 LET BB4=1900*WP 10060 LET BB5=BB1-BB4 10100 IF BB6 < 4000 THEN LET WR=0 10110 IF BB6 > 4000 AND BB6 < 6000 THEN GOSUB 10500 10120 IF BB6 > 6000 AND BB6 < 8000 THEN GOSUB 10600 10130 IF BB6 > 8000 AND BB6 <10000 THEN GOSUB 10700 10140 IF BB6 >10000 AND BB6 <12000 THEN GOSUB 10800 10150 IF BB6 >12000 AND BB6 <14000 THEN GOSUB 10900 10160 IF BB6 >14000 AND BB6 <16000 THEN GOSUB 11000 10170 IF BB6 >16000 AND BB6 <18000 THEN GOSUB 11100 10180 IF BB6 >18000 AND BB6 <20000 THEN GOSUB 11200 10190 IF BB6 >20000 THEN GOSUB 11300 10200 RETURN 10500 IF BB5 < 16000 THEN LET WR=0 10510 IF BB5 > 16000 AND BB5 <24000 THEN LET WR=1000 10520 IF BB5 > 24000 AND BB5 <50000! THEN LET WR=1400 10530 IF BB5 > 50000! THEN LET WR=1600 10540 RETURN 10600 IF BB5 < 14000 THEN LET WR=0 10610 IF BB5 > 14000 AND BB5 <16000 THEN LET WR=1500 10620 IF BB5 > 16000 AND BB5 <22000 THEN LET WR=1900 10630 IF BB5 > 22000 AND BB5 <24000 THEN LET WR=2100 10640 IF BB5 > 24000 AND BB5 <50000! THEN LET WR=2600 10650 IF BB5 > 50000! THEN LET WR=2800 10660 RETURN 10700 IF BB5 < 12000 THEN LET WR=0 10710 IF BB5 >12000 AND BB5 < 14000 THEN LET WR=1500 10720 IF BB5 >14000 AND BB5 <20000 THEN LET WR=2900 10730 IF BB5 >20000 AND BB5 <22000 THEN LET WR=3000 10740 IF BB5 >22000 AND BB5 <24000 THEN LET WR=3500 10750 IF BB5 >24000 AND BB5 <50000! THEN LET WR=3700 10760 IF BB5 >50000! THEN LET WR=4000 10770 RETURN 10800 IF BB5 <10000 THEN LET WR=0 10810 IF BB5 >10000 AND BB5 <12000 THEN LET WR=1500 10820 IF BB5 >12000 AND BB5 <14000 THEN LET WR=3300 10830 IF BB5 >14000 AND BB5 <18000 THEN LET WR=3800 10840 IF BB5 >18000 AND BB5 <20000 THEN LET WR=3900 10850 IF BB5 >20000 AND BB5 <22000 THEN LET WR=4400 10860 IF BB5 >22000 AND BB5 <50000! THEN LET WR=4900 10870 IF BB5 >50000! THEN LET WR=5300 10880 RETURN 10900 IF BB5 <10000 THEN LET WR=0 10910 IF BB5 >10000 AND BB5 <12000 THEN LET WR=3300 10920 IF BB5 >12000 AND BB5 <16000 THEN LET WR=4700 10930 IF BB5 >16000 AND BB5 <18000 THEN LET WR=4900 10940 IF BB5 >18000 AND BB5 <20000 THEN LET WR=5400 10950 IF BB5 >20000 AND BB5 <22000 THEN LET WR=5900 10960 IF BB5 >22000 AND BB5 <40000! THEN LET WR=6000 10970 IF BB5 >40000! AND BB5 <50000! THEN LET WR=6200 10980 IF BB5 >50000! THEN LET WR=6500 10990 RETURN 11000 IF BB5 <10000 THEN LET WR=0 11010 IF BB5 >10000 AND BB5 <12000 THEN LET WR=5000 11020 IF BB5 >12000 AND BB5 <14000 THEN LET WR=5700 11025 IF BB5 >14000 AND BB5 <16000 THEN LET WR=5800 11030 IF BB5 >16000 AND BB5 <18000 THEN LET WR=6300 11040 IF BB5 >18000 AND BB5 <20000 THEN LET WR=6800 11050 IF BB5 >20000 AND BB5 <40000! THEN LET WR=7200 11060 IF BB5 >40000! AND BB5 <50000! THEN LET WR=7500 11070 IF BB5 > 50000! THEN LET WR=7700 11080 RETURN 11100 IF BB5 <10000 THEN LET WR=1500 11110 IF BB5 >10000 AND BB5 <12000 THEN LET WR=6600 11120 IF BB5 >12000 AND BB5 <14000 THEN LET WR=6700 11130 IF BB5 >14000 AND BB5 <16000 THEN LET WR=7200 11140 IF BB5 >16000 AND BB5 <18000 THEN LET WR=7700 11150 IF BB5 >18000 AND BB5 <20000 THEN LET WR=8200 11160 IF BB5 >20000 AND BB5 <40000! THEN LET WR=8300 11170 IF BB5 >40000! AND BB5 <50000! THEN LET WR=8800 11180 IF BB5 >50000! THEN LET WR=8900 11190 RETURN 11200 IF BB5 < 1000 THEN LET WR=1900 11210 IF BB5 >10000 AND BB5 < 12000 THEN LET WR=6900 11220 IF BB5 >12000 AND BB5 <14000 THEN LET WR=7400 11230 IF BB5 >14000 AND BB5 <16000 THEN LET WR=7900 11240 IF BB5 >16000 AND BB5 <18000 THEN LET WR=8400 11250 IF BB5 >18000 AND BB5 <40000! THEN LET WR=8900 11260 IF BB5 >40000! AND BB5 <50000! THEN LET WR=9600 11270 IF BB5 >50000! THEN LET WR=9600 11280 RETURN 11300 IF BB5 <10000 THEN LET WR=2100 11310 IF BB5 >10000 AND BB5 <12000 THEN LET WR=8400 11320 IF BB5 >12000 AND BB5 <14000 THEN LET WR=8900 11330 IF BB5 >14000 AND BB5 <16000 THEN LET WR=9400 11340 IF BB5 >16000 AND BB5 <18000 THEN LET WR=9900 11350 IF BB5 >18000 AND BB5 <20000 THEN LET WR=10100 11360 IF BB5 >20000 AND BB5 <30000 THEN LET WR=10100 11370 IF BB5 >30000 AND BB5 <40000! THEN LET WR=10400 11380 IF BB5 >40000! THEN LET WR=11200 11390 RETURN 12000 'Table A Married Couples 12001 'B=2nd Job I1=TP Sal I3=Spouse Sal 12010 IF I1 > B AND I1 > I3 THEN LET BB1 = I1 12020 IF B > I1 AND B > I3 THEN LET BB1 = B 12030 IF I3 > I1 AND I3 > B THEN LET BB1 = I3 12040 IF I1 < B AND I1 < I3 THEN LET BB6 = I1 12050 IF B < I1 AND B < I3 THEN LET BB6 = B 12060 IF I3 < I1 AND I3 < B THEN LET BB6 = I3 12070 LET BB4 = 1900*WP 12080 LET BB5 = BB1-BB4 12090 IF BB6 <2000 THEN LET WR = 0 13000 IF BB6 >2000 AND BB6 <4000 THEN GOSUB 15000 13010 IF BB6 >4000 AND BB6 <6000 THEN GOSUB 15100 13020 IF BB6 >6000 AND BB6 <8000 THEN GOSUB 15200 13030 IF BB6 >8000 AND BB6 <10000 THEN GOSUB 15300 13040 IF BB6 >10000 AND BB6 <12000 THEN GOSUB 15400 13050 IF BB6 >12000 AND BB6 <14000 THEN GOSUB 15500 13060 IF BB6 >14000 AND BB6 <16000 THEN GOSUB 15600 13070 IF BB6 >16000 AND BB6 <18000 THEN GOSUB 15700 13080 IF BB6 >18000 AND BB6 <20000 THEN GOSUB 15800 13090 IF BB6 >20000 AND BB6 <22000 THEN GOSUB 15900 13100 IF BB6 >22000 AND BB6 <24000 THEN GOSUB 16000 13110 IF BB6 >24000 AND BB6 <26000 THEN GOSUB 16100 13120 IF BB6 >26000 AND BB6 <28000 THEN GOSUB 16200 13130 IF BB6 >28000 AND BB6 <30000 THEN GOSUB 16300 13140 IF BB6 >30000 AND BB6 <32000 THEN GOSUB 16400 13150 IF BB6 >32000 AND BB6 <34000! THEN GOSUB 16500 13160 IF BB6 >34000! AND BB6 <36000! THEN GOSUB 16600 13170 IF BB6 >36000! AND BB6 <38000! THEN GOSUB 16700 13180 IF BB6 >38000! AND BB6 <40000! THEN GOSUB 16800 13190 IF BB6 >40000! AND BB6 <42000! THEN GOSUB 16900 13200 IF BB6 >42000! AND BB6 <44000! THEN GOSUB 17000 13210 IF BB6 >44000! AND BB6 <46000! THEN GOSUB 17100 13220 IF BB6 >46000! AND BB6 <48000! THEN GOSUB 17200 13230 IF BB6 >48000! AND BB6 <50000! THEN GOSUB 17300 13240 IF BB6 >50000! AND BB6 <55000! THEN GOSUB 17400 13245 IF BB6>55000! AND BB6<60000! THEN GOSUB 17500 13248 IF BB6>60000! AND BB6<70000! THEN GOSUB 17600 13250 IF BBE >70000! THEN GOSUB 17700 13255 RETURN 15000 IF BB5 <4000 THEN LET WR=0 15010 IF BB5 >4000 AND BB5 <28000 THEN LET WR=300 15020 IF BB5 >28000 AND BB5 <30000 THEN LET WR=500 15030 IF BB5 >30000 THEN LET WR=700 15040 RETURN 15100 IF BB5 <4000 THEN LET WR=0 15110 IF BB5>4000 AND BB5<26000 THEN LET WR=800 15120 IF BB5>26000 AND BB5<28000 THEN LET WR=1000 15130 IF BB5>28000 AND BB5<44000! THEN LET WR=1800 15140 IF BB5>44000! THEN LET WR=2100 15150 RETURN 15200 IF BB5<4000 THEN LET WR=0 15210 IF BB5>4000 AND BB5<24000 THEN LET WR=800 15220 IF BB5>24000 AND BB5<26000 THEN LET WR=1000 15230 IF BB5>26000 AND BB5<28000 THEN LET WR=2700 15240 IF BB5>28000 AND BB5<42000! THEN LET WR=2800 15250 IF BB5>42000! AND BB5<44000! THEN LET WR=3100 15260 IF BB5>44000! THEN LET WR=3200 15270 RETURN 15300 IF BB5<4000 THEN LET WR=0 15310 IF BB5>4000 AND BB5<22000 THEN LET WR=800 15320 IF BB5>22000 AND BB5<24000 THEN LET WR=1000 15330 IF BB5>24000 AND BB5<26000 THEN LET WR=2700 15340 IF BB5>26000 AND BB5<40000! THEN LET WR=3700 15350 IF BB5>40000! AND BB5<42000! THEN LET WR=4000 15360 IF BB5>42000! THEN LET WR=4400 15370 RETURN 15400 IF BB5<4000 THEN LET WR=0 15410 IF BB5>4000 AND BB5<20000 THEN LET WR=800 15420 IF BB5>20000 AND BB5<22000 THEN LET WR=1000 15430 IF BB5>22000 AND BB5<24000 THEN LET WR=2700 15440 IF BB5>24000 AND BB5<26000 THEN LET WR=4400 15450 IF BB5>26000 AND BB5<38000! THEN LET WR=4600 15460 IF BB5>38000! AND BB5<40000! THEN LET WR=4900 15470 IF BB5>40000! AND BB5<42000! THEN LET WR=5400 15480 IF BB5>42000! THEN LET WR=5500 15490 RETURN 15500 IF BB5<4000 THEN LET WR=0 15510 IF BB5>4000 AND BB5<18000 THEN LET WR=800 15520 IF BB5>18000 AND BB5<20000 THEN LET WR=1000 15530 IF BB5>20000 AND BB5<22000 THEN LET WR=2700 15540 IF BB5>22000 AND BB5<24000 THEN LET WR=4400 15550 IF BB5>24000 AND BB5<36000! THEN LET WR=5600 15560 IF BB5>36000! AND BB5<38000! THEN LET WR=5900 15570 IF BB5>38000! AND BB5<40000! THEN LET WR=6400 15580 IF BB5>40000! THEN LET WR=6700 15590 RETURN 15600 IF BB5<4000 THEN LET WR=0 15610 IF BB5>4000 AND BB5<18000 THEN LET WR=800 15620 IF BB5>18000 AND BB5<20000 THEN LET WR=2700 15630 IF BB5>20000 AND BB5<22000 THEN LET WR=4400 15640 IF BB5>22000 AND BB5<24000 THEN LET WR=6200 15650 IF BB5>24000 AND BB5<34000! THEN LET WR=6500 15660 IF BB5>34000! AND BB5<36000! THEN LET WR=6800 15670 IF BB5>36000! AND BB5<38000! THEN LET WR=7300 15680 IF BB5>38000! AND BB5<70000! THEN LET WR=7800 15690 IF BB5>70000! THEN LET WR=7900 15695 RETURN 15700 IF BB5<4000 THEN LET WR=0 15710 IF BB5>4000 AND BB5<18000 THEN LET WR=800 15720 IF BB5>18000 AND BB5<20000 THEN LET WR=4400 15730 IF BB5>20000 AND BB5<22000 THEN LET WR=6200 15740 IF BB5>22000 AND BB5<32000 THEN LET WR=7400 15750 IF BB5>32000 AND BB5<34000! THEN LET WR=7700 15760 IF BB5>34000! AND BB5<36000! THEN LET WR=8200 15770 IF BB5>36000! AND BB5<38000! THEN LET WR=8700 15775 IF BB5>38000! AND BB5<70000! THEN LET WR=9000 15780 IF BB5>70000! THEN LET WR=9300 15790 RETURN 15800 IF BB5<4000 THEN LET WR=0 15810 IF BB5>4000 AND BB5<18000 THEN LET WR=800 15820 IF BB5>18000 AND BB5<20000 THEN LET WR=6200 15830 IF BB5>20000 AND BB5<22000 THEN LET WR=7900 15840 IF BB5>22000 AND BB5<30000 THEN LET WR=8300 15850 IF BB5>30000 AND BB5<32000 THEN LET WR=8700 15860 IF BB5>32000 AND BB5<34000! THEN LET WR=9200 15870 IF BB5>34000! AND BB5<36000! THEN LET WR=9700 15880 IF BB5>36000! AND BB5<70000! THEN LET WR=10100 15885 IF BB5>70000! THEN LET WR=10600 15890 RETURN 15900 IF BB5<4000 THEN LET WR=0 15910 IF BB5>4000 AND BB5<18000 THEN LET WR=1000 15920 IF BB5>18000 AND BB5<20000 THEN LET WR=7900 15930 IF BB5>20000 AND BB5<28000 THEN LET WR=9300 15940 IF BB5>28000 AND BB5<30000 THEN LET WR=9600 15950 IF BB5>30000 AND BB5<32000 THEN LET WR=10100 15960 IF BB5>32000 AND BB5<34000! THEN LET WR=10600 15970 IF BB5>34000! AND BB5<36000! THEN LET WR=11100 15980 IF BB5>36000! AND BB5<70000! THEN LET WR=11200 15985 IF BB5>70000! THEN LET WR=12000 15990 RETURN 16000 IF BB5<4000 THEN LET WR=0 16010 IF BB5>4000 AND BB5<18000 THEN LET WR=2700 16020 IF BB5>18000 AND BB5<20000 THEN LET WR=9600 16030 IF BB5>20000 AND BB5<26000 THEN LET WR=10200 16040 IF BB5>26000 AND BB5<28000 THEN LET WR=10500 16050 IF BB5>28000 AND BB5<30000 THEN LET WR=11000 16055 IF BB5>30000 AND BB5<32000 THEN LET WR=11500 16060 IF BB5>32000 AND BB5<34000! THEN LET WR=12000 16070 IF BB5>34000! AND BB5<70000! THEN LET WR=12400 16080 IF BB5>70000! THEN LET WR=13200 16090 RETURN 16100 IF BB5<4000 THEN LET WR=0 16110 IF BB5>4000 AND BB5<18000 THEN LET WR=4400 16120 IF BB5>18000 AND BB5<24000 THEN LET WR=11100 16130 IF BB5>24000 AND BB5<26000 THEN LET WR=11400 16140 IF BB5>26000 AND BB5<28000 THEN LET WR=11900 16150 IF BB5>28000 AND BB5<30000 THEN LET WR=12400 16160 IF BB5>30000 AND BB5<32000 THEN LET WR=12900 16170 IF BB5>32000 AND BB5<34000! THEN LET WR=13400 16180 IF BB5>34000! AND BB5<70000! THEN LET WR=13500 16185 IF BB5>70000! THEN LET WR=14400 16190 RETURN 16200 IF BB5<4000 THEN LET WR=0 16210 IF BB5>4000 AND BB5<18000 THEN LET WR=6200 16220 IF BB5>18000 AND BB5<22000 THEN LET WR=12100 16230 IF BB5>22000 AND BB5<24000 THEN LET WR=12400 16240 IF BB5>24000 AND BB5<26000 THEN LET WR=12900 16250 IF BB5>26000 AND BB5<28000 THEN LET WR=13400 16260 IF BB5>28000 AND BB5<30000 THEN LET WR=13900 16270 IF BB5>30000 AND BB5<32000 THEN LET WR=14400 16280 IF BB5>32000 AND BB5<70000! THEN LET WR=14700 16285 IF BB5>70000! THEN LET WR=15600 16290 RETURN 16300 IF BB5<4000 THEN LET WR=0 16310 IF BB5>4000 AND BB5<18000 THEN LET WR=7900 16320 IF BB5>18000 AND BB5<20000 THEN LET WR=13000 16330 IF BB5>20000 AND BB5<22000 THEN LET WR=13300 16340 IF BB5>22000 AND BB5>24000 THEN LET WR=13800 16350 IF BB5>24000 AND BB5<26000 THEN LET WR=14300 16360 IF BB5>26000 AND BB5<28000 THEN LET WR=14800 16370 IF BB5>28000 AND BB5<30000 THEN LET WR=15300 16380 IF BB5>30000 AND BB5<70000! THEN LET WR=15800 16385 IF BB5>70000! THEN LET WR=16800 16390 RETURN 16400 IF BB5<4000 THEN LET WR=0 16410 IF BB5>4000 AND BB5<18000 THEN LET WR=8600 16420 IF BB5>18000 AND BB5<20000 THEN LET WR=13700 16430 IF BB5>20000 AND BB5<22000 THEN LET WR=14200 16440 IF BB5>22000 AND BB5>24000 THEN LET WR=14700 16450 IF BB5>24000 AND BB5<26000 THEN LET WR=15200 16460 IF BB5>26000 AND BB5<28000 THEN LET WR=15700 16470 IF BB5>28000 AND BB5<30000 THEN LET WR=16200 16480 IF BB5>30000 AND BB5<60000! THEN LET WR=16500 16482 IF BB5>60000! AND BB5<70000! THEN LET WR=16800 16485 IF BB5>70000! THEN LET WR=17700 16490 RETURN 16500 IF BB5<4000 THEN LET WR=0 16510 IF BB5>4000 AND BB5<18000 THEN LET WR=8600 16520 IF BB5>18000 AND BB5<20000 THEN LET WR=14200 16530 IF BB5>20000 AND BB5<22000 THEN LET WR=14700 16540 IF BB5>22000 AND BB5>24000 THEN LET WR=15200 16550 IF BB5>24000 AND BB5<26000 THEN LET WR=15700 16560 IF BB5>26000 AND BB5<28000 THEN LET WR=16200 16570 IF BB5>28000 AND BB5<30000 THEN LET WR=16700 16580 IF BB5>30000 AND BB5<60000! THEN LET WR=16900 16582 IF BB5>60000! AND BB5<70000! THEN LET WR=17400 16585 IF BB5>70000! THEN LET WR=18200 16590 RETURN 16600 IF BB5<4000 THEN LET WR=0 16610 IF BB5>4000 AND BB5<18000 THEN LET WR=8600 16620 IF BB5>18000 AND BB5<20000 THEN LET WR=14700 16630 IF BB5>20000 AND BB5<22000 THEN LET WR=15200 16640 IF BB5>22000 AND BB5>24000 THEN LET WR=15700 16650 IF BB5>24000 AND BB5<26000 THEN LET WR=16200 16660 IF BB5>26000 AND BB5<28000 THEN LET WR=16700 16670 IF BB5>28000 AND BB5<30000 THEN LET WR=17200 16680 IF BB5>30000 AND BB5<60000! THEN LET WR=17300 16682 IF BB5>60000! AND BB5<70000! THEN LET WR=18000 16685 IF BB5>70000! THEN LET WR=18800 16690 RETURN 16700 IF BB5<4000 THEN LET WR=0 16710 IF BB5>4000 AND BB5<18000 THEN LET WR=8600 16720 IF BB5>18000 AND BB5<20000 THEN LET WR=15200 16730 IF BB5>20000 AND BB5<22000 THEN LET WR=15700 16740 IF BB5>22000 AND BB5>24000 THEN LET WR=16200 16750 IF BB5>24000 AND BB5<26000 THEN LET WR=16700 16760 IF BB5>26000 AND BB5<28000 THEN LET WR=17200 16770 IF BB5>28000 AND BB5<55000! THEN LET WR=17700 16780 IF BB5>55000! AND BB5<60000! THEN LET WR=17800 16782 IF BB5>60000! AND BB5<70000! THEN LET WR=18600 16785 IF BB5>70000! THEN LET WR=19300 16790 RETURN 16800 IF BB5<4000 THEN LET WR=0 16810 IF BB5>4000 AND BB5<18000 THEN LET WR=9200 16820 IF BB5>18000 AND BB5<20000 THEN LET WR=15700 16830 IF BB5>20000 AND BB5<22000 THEN LET WR=16200 16840 IF BB5>22000 AND BB5>24000 THEN LET WR=16700 16850 IF BB5>24000 AND BB5<26000 THEN LET WR=17200 16860 IF BB5>26000 AND BB5<28000 THEN LET WR=17700 16870 IF BB5>28000 AND BB5<55000! THEN LET WR=18100 16880 IF BB5>55000! AND BB5<60000! THEN LET WR=18400 16882 IF BB5>60000! AND BB5<70000! THEN LET WR=19200 16885 IF BB5>70000! THEN LET WR=19900 16890 RETURN 16900 IF BB5<4000 THEN LET WR=0 16910 IF BB5>4000 AND BB5<18000 THEN LET WR=10200 16920 IF BB5>18000 AND BB5<20000 THEN LET WR=16200 16930 IF BB5>20000 AND BB5<22000 THEN LET WR=16700 16940 IF BB5>22000 AND BB5>24000 THEN LET WR=17200 16950 IF BB5>24000 AND BB5<26000 THEN LET WR=17700 16960 IF BB5>26000 AND BB5<28000 THEN LET WR=18200 16970 IF BB5>28000 AND BB5<55000! THEN LET WR=18500 16980 IF BB5>55000! AND BB5<60000! THEN LET WR=19000 16982 IF BB5>60000! AND BB5<70000! THEN LET WR=19800 16985 IF BB5>70000! THEN LET WR=20400 16990 RETURN 17000 IF BB5<4000 THEN LET WR=0 17010 IF BB5>4000 AND BB5<18000 THEN LET WR=11100 17020 IF BB5>18000 AND BB5<20000 THEN LET WR=16700 17030 IF BB5>20000 AND BB5<22000 THEN LET WR=17200 17040 IF BB5>22000 AND BB5>24000 THEN LET WR=17700 17050 IF BB5>24000 AND BB5<26000 THEN LET WR=18200 17060 IF BB5>26000 AND BB5<28000 THEN LET WR=18700 17070 IF BB5>28000 AND BB5<50000! THEN LET WR=18900 17080 IF BB5>50000! AND BB5<55000! THEN LET WR=19100 17082 IF BB5>55000! AND BB5<60000! THEN LET WR=19600 17084 IF BB5>60000! AND BB5<70000! THEN LET WR=20400 17085 IF BB5>70000! THEN LET WR=20900 17090 RETURN 17100 IF BB5<4000 THEN LET WR=0 17110 IF BB5>4000 AND BB5<18000 THEN LET WR=12000 17120 IF BB5>18000 AND BB5<20000 THEN LET WR=17200 17130 IF BB5>20000 AND BB5<22000 THEN LET WR=17700 17140 IF BB5>22000 AND BB5>24000 THEN LET WR=18200 17150 IF BB5>24000 AND BB5<26000 THEN LET WR=18700 17160 IF BB5>26000 AND BB5<28000 THEN LET WR=19200 17170 IF BB5>28000 AND BB5<48000! THEN LET WR=19300 17180 IF BB5>48000! AND BB5<50000! THEN LET WR=19400 17182 IF BB5>50000! AND BB5<55000! THEN LET WR=19700 17184 IF BB5>55000! AND BB5<60000! THEN LET WR=20200 17185 IF BB5>60000! AND BB5<70000! THEN LET WR=21000 17188 IF BB5>70000! THEN LET WR=21500 17190 RETURN 17200 IF BB5<4000 THEN LET WR=0 17210 IF BB5>4000 AND BB5<18000 THEN LET WR=12900 17220 IF BB5>18000 AND BB5<20000 THEN LET WR=17700 17230 IF BB5>20000 AND BB5<22000 THEN LET WR=18200 17240 IF BB5>22000 AND BB5>24000 THEN LET WR=18700 17250 IF BB5>24000 AND BB5<26000 THEN LET WR=19200 17260 IF BB5>26000 AND BB5<28000 THEN LET WR=19700 17270 IF BB5>28000 AND BB5<48000! THEN LET WR=19700 17280 IF BB5>48000! AND BB5<50000! THEN LET WR=19900 17282 IF BB5>50000! AND BB5<55000! THEN LET WR=20300 17284 IF BB5>55000! AND BB5<60000! THEN LET WR=20800 17285 IF BB5>60000! AND BB5<70000! THEN LET WR=21500 17288 IF BB5>70000! THEN LET WR=22000 17290 RETURN 17300 IF BB5<4000 THEN LET WR=0 17310 IF BB5>4000 AND BB5<18000 THEN LET WR=12900 17320 IF BB5>18000 AND BB5<20000 THEN LET WR=17700 17330 IF BB5>20000 AND BB5<22000 THEN LET WR=18200 17340 IF BB5>22000 AND BB5>24000 THEN LET WR=18700 17350 IF BB5>24000 AND BB5<26000 THEN LET WR=19200 17360 IF BB5>26000 AND BB5<28000 THEN LET WR=19700 17370 IF BB5>28000 AND BB5<46000! THEN LET WR=19700 17380 IF BB5>46000! AND BB5<48000! THEN LET WR=19900 17382 IF BB5>48000! AND BB5<50000! THEN LET WR=20100 17384 IF BB5>50000! AND BB5<55000! THEN LET WR=20500 17385 IF BB5>55000! AND BB5<60000! THEN LET WR=21000 17387 IF BB5>60000! AND BB5<70000! THEN LET WR=21700 17388 IF BB5>70000! THEN LET WR=22200 17390 RETURN 17400 IF BB5<4000 THEN LET WR=0 17410 IF BB5>4000 AND BB5<18000 THEN LET WR=12900 17420 IF BB5>18000 AND BB5<20000 THEN LET WR=17700 17430 IF BB5>20000 AND BB5<22000 THEN LET WR=18200 17440 IF BB5>22000 AND BB5>24000 THEN LET WR=18700 17450 IF BB5>24000 AND BB5<26000 THEN LET WR=19200 17460 IF BB5>26000 AND BB5<42000! THEN LET WR=19700 17470 IF BB5>42000! AND BB5<44000! THEN LET WR=19900 17480 IF BB5>44000! AND BB5<46000! THEN LET WR=20100 17482 IF BB5>46000! AND BB5<48000! THEN LET WR=20300 17484 IF BB5>48000! AND BB5<50000! THEN LET WR=20500 17485 IF BB5>50000! AND BB5<55000! THEN LET WR=20800 17487 IF BB5>55000! AND BB5<60000! THEN LET WR=21300 17488 IF BB5>60000! AND BB5<70000! THEN LET WR=22100 17489 IF BB5>70000! THEN LET WR=22500 17490 RETURN 17500 IF BB5<4000 THEN LET WR=0 17510 IF BB5>4000 AND BB5<18000 THEN LET WR=12900 17520 IF BB5>18000 AND BB5<20000 THEN LET WR=17700 17530 IF BB5>20000 AND BB5<22000 THEN LET WR=18200 17540 IF BB5>22000 AND BB5>24000 THEN LET WR=18700 17550 IF BB5>24000 AND BB5<26000 THEN LET WR=19200 17560 IF BB5>26000 AND BB5<36000! THEN LET WR=19700 17570 IF BB5>36000! AND BB5<38000! THEN LET WR=19800 17580 IF BB5>38000! AND BB5<40000! THEN LET WR=20000 17582 IF BB5>40000! AND BB5<42000! THEN LET WR=20200 17584 IF BB5>42000! AND BB5<44000! THEN LET WR=20400 17585 IF BB5>44000! AND BB5<46000! THEN LET WR=20600 17587 IF BB5>46000! AND BB5<48000! THEN LET WR=20800 17588 IF BB5>48000! AND BB5<50000! THEN LET WR=21000 17589 IF BB5>50000! AND BB5<55000! THEN LET WR=21300 17590 IF BB5>55000! AND BB5<60000! THEN LET WR=21800 17591 IF BB5>60000! AND BB5<70000! THEN LET WR=22600 17592 IF BB5>70000! THEN LET WR=23000 17593 RETURN 17600 IF BB5<4000 THEN LET WR=0 17610 IF BB5>4000 AND BB5<18000 THEN LET WR=12900 17620 IF BB5>18000 AND BB5<20000 THEN LET WR=17700 17630 IF BB5>20000 AND BB5<22000 THEN LET WR=18200 17640 IF BB5>22000 AND BB5>24000 THEN LET WR=18700 17650 IF BB5>24000 AND BB5<26000 THEN LET WR=19200 17660 IF BB5>26000 AND BB5<30000! THEN LET WR=19700 17670 IF BB5>30000! AND BB5<32000! THEN LET WR=19900 17680 IF BB5>32000! AND BB5<34000! THEN LET WR=20100 17682 IF BB5>34000! AND BB5<36000! THEN LET WR=20300 17684 IF BB5>36000! AND BB5<38000! THEN LET WR=20500 17685 IF BB5>38000! AND BB5<40000! THEN LET WR=20700 17687 IF BB5>40000! AND BB5<42000! THEN LET WR=20900 17688 IF BB5>42000! AND BB5<44000! THEN LET WR=21100 17689 IF BB5>44000! AND BB5<46000! THEN LET WR=21300 17690 IF BB5>46000! AND BB5<48000! THEN LET WR=21500 17691 IF BB5>48000! AND BB5<50000! THEN LET WR=21700 17692 IF BB5>50000! AND BB5<55000! THEN LET WR=22100 17693 IF BB5>55000! AND BB5<60000! THEN LET WR=22600 17694 IF BB5>60000! AND BB5<70000! THEN LET WR=23300 17695 IF BB5>70000! THEN LET WR=23600 17696 RETURN 17700 IF BB5<4000 THEN LET WR=0 17710 IF BB5>4000 AND BB5<18000 THEN LET WR=12900 17720 IF BB5>18000 AND BB5<20000 THEN LET WR=18300 17730 IF BB5>20000 AND BB5<22000 THEN LET WR=19100 17740 IF BB5>22000 AND BB5>24000 THEN LET WR=19800 17750 IF BB5>24000 AND BB5<26000 THEN LET WR=20600 17760 IF BB5>26000 AND BB5<28000! THEN LET WR=21000 17770 IF BB5>28000! AND BB5<30000! THEN LET WR=21200 17780 IF BB5>30000! AND BB5<32000! THEN LET WR=21400 17782 IF BB5>32000! AND BB5<34000! THEN LET WR=21600 17784 IF BB5>34000! AND BB5<36000! THEN LET WR=21800 17785 IF BB5>36000! AND BB5<38000! THEN LET WR=22000 17787 IF BB5>38000! AND BB5<40000! THEN LET WR=22200 17788 IF BB5>40000! AND BB5<42000! THEN LET WR=22400 17789 IF BB5>42000! AND BB5<44000! THEN LET WR=22600 17790 IF BB5>44000! AND BB5<46000! THEN LET WR=22800 17791 IF BB5>46000! AND BB5<48000! THEN LET WR=23000 17792 IF BB5>48000! AND BB5<50000! THEN LET WR=23200 17793 IF BB5>50000! AND BB5<55000! THEN LET WR=23600 17794 IF BB5>55000! AND BB5<60000! THEN LET WR=24100 17795 IF BB5>60000! AND BB5<70000! THEN LET WR=24800 17796 IF BB5>70000! THEN LET WR=25000 17797 RETURN 18000 'Print summary 18001 CLS 18010 PRINT " W-4 Worksheet Summary" 18020 PRINT " A..Your Exemption..........................";WA 18030 PRINT " B..Special Allowance.......................";WB 18040 PRINT " C..Spouse..................................";WC 18050 PRINT " D..Dependents..............................";WD 18060 PRINT " E....Total.................................";WE 18090 PRINT " F..Adjustments to Income..............";WF 18100 PRINT " G..Itemized Deductions....";WG 18110 PRINT " H..Zero Bracket...........";WH 18120 PRINT " I..Line G-H...........................";WI 18130 PRINT " J..Age 65 or Over,Blind...............";WJ 18140 PRINT " K..Tax Credits............";WK 18150 PRINT " L..Schedule Amount........";WL 18170 PRINT " M..K x L..............................";WM 18180 PRINT " N..Sum of F,I,J & M...................";WN 18190 PRINT " O..N divided by $1900.................";WO 18200 PRINT " P..Lines E+O...............................";WP 18210 PRINT " Q..Nonwage Income.....................";WQ 18220 PRINT " R..Working Spouse,2 Jobs..............";WR 18230 PRINT " S..Lines Q+R..........................";WS 18240 PRINT " T..Line S divided by $1900.................";WT 18250 PRINT " U..TOTAL WITHHOLDING ALLOWANCES............";WU 18260 INPUT "hit any key to finish";ZZ$ 18280 RETURN 28000 'Print summary on printer 28001 CLS 28005 LPRINT:LPRINT:LPRINT 28010 LPRINT " W-4 Worksheet Summary" 28020 LPRINT " A..Your Exemption..........................";WA 28030 LPRINT " B..Special Allowance.......................";WB 28040 LPRINT " C..Spouse..................................";WC 28050 LPRINT " D..Dependents..............................";WD 28060 LPRINT " E....Total.................................";WE 28065 LPRINT:LPRINT 28090 LPRINT " F..Adjustments to Income..............";WF 28100 LPRINT " G..Itemized Deductions....";WG 28110 LPRINT " H..Zero Bracket...........";WH 28120 LPRINT " I..Line G-H...........................";WI 28130 LPRINT " J..Age 65 or Over,Blind...............";WJ 28140 LPRINT " K..Tax Credits............";WK 28150 LPRINT " L..Schedule Amount........";WL 28170 LPRINT " M..K x L..............................";WM 28180 LPRINT " N..Sum of F,I,J & M...................";WN 28190 LPRINT " O..N divided by $1900.................";WO 28200 LPRINT " P..Lines E+O...............................";WP 28210 LPRINT " Q..Nonwage Income.....................";WQ 28220 LPRINT " R..Working Spouse,2 Jobs..............";WR 28230 LPRINT " S..Lines Q+R..........................";WS 28240 LPRINT " T..Line S divided by $1900.................";WT 28250 LPRINT " U..TOTAL WITHHOLDING ALLOWANCES............";WU 28260 LPRINT:LPRINT:LPRINT 28270 LPRINT " **If you have more than one job or if your spouse works,you" 28271 LPRINT " may claim all of you allowances on one job or you may claim " 28272 LPRINT " some on each job, but you may NOT claim the same allowances " 28273 LPRINT " more than once. Your withholding will usually be more accurate" 28274 LPRINT " if you claim ALL allowances on the Form W-4 for the job with" 28275 LPRINT " the largest wages and claim zero on all other Forms W-4" 28280 RETURN